﻿Module Module1
  Sub Main()
    Console.WriteLine("Pagamento " & _
        "bollo di circolazione")
    Console.WriteLine("(A)uto, " & _
        "Auto(C)arro?:")
    Dim tipo As String = Console.ReadLine()
    Dim scelta As String = ""
    Select Case tipo
      Case "A"
        Console.WriteLine("kW di " & _
            "potenza:")
        Console.WriteLine("a - fino a 70")
        Console.WriteLine("b – " & _
            "da 71 a 100")
        Console.WriteLine("c - da 101 a 200")
        Console.WriteLine("d - oltre 200")
        scelta = Console.ReadLine()
        Select Case scelta
          Case "a"
            Console.WriteLine("Pagare " & _
            "150 Euro")
          Case "b"
            Console.WriteLine("Pagare " & _
            "200 Euro")
          Case "c"
            Console.WriteLine("Pagare " & _
            "250 Euro")
          Case "d"
            Console.WriteLine("Pagare " & _
            "300 Euro")
          Case Else
            Console.WriteLine("Scelta " & _
            "non corretta")
        End Select
      Case "C"
        Console.WriteLine("Portata massima:")
        Console.WriteLine("a – " & _
            "fino a 35 quintali")
        Console.WriteLine("b – " & _
            "da 35 a 70 quintali")
        Console.WriteLine("c – " & _
            "oltre 70 quintali")
        scelta = Console.ReadLine()
        Select Case scelta
          Case "a"
            Console.WriteLine("Pagare " & _
                "100 Euro")
          Case "b"
            Console.WriteLine("Pagare " & _
                "120 Euro")
          Case "c"
            Console.WriteLine("Pagare " & _
                "150 Euro")
          Case "d"
            Console.WriteLine("Pagare " & _
                "200 Euro")
          Case Else
            Console.WriteLine("Scelta " & _
                "non corretta")
        End Select
      Case Else
        Console.WriteLine("Non hai " & _
        "inserito un tipo valido")
    End Select
    Console.ReadLine()
  End Sub
End Module

